home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / spriteTime.ph < prev    next >
Text File  |  1991-08-11  |  1KB  |  32 lines
  1. if (!defined &_SPRITETIME) {
  2.     eval 'sub _SPRITETIME {1;}';
  3.     if (!defined &_SPRITE) {
  4.     }
  5.     eval 'sub ONE_SECOND {1000000;}';
  6.     eval 'sub TENTH_SECOND {100000;}';
  7.     eval 'sub HUNDREDTH_SECOND {10000;}';
  8.     eval 'sub ONE_MILLISECOND {1000;}';
  9.     eval 'sub TIME_CVT_BUF_SIZE {30;}';
  10.     eval 'sub Time_LT {
  11.         local($time1, $time2) = @_;
  12.         eval "((($time1). &seconds < ($time2). &seconds) || ((($time1). &seconds == ($time2). &seconds) && (($time1). µseconds < ($time2). µseconds)))";
  13.     }';
  14.     eval 'sub Time_LE {
  15.         local($time1, $time2) = @_;
  16.         eval "((($time1). &seconds < ($time2). &seconds) || ((($time1). &seconds == ($time2). &seconds) && (($time1). µseconds <= ($time2). µseconds)))";
  17.     }';
  18.     eval 'sub Time_EQ {
  19.         local($time1, $time2) = @_;
  20.         eval "((($time1). &seconds == ($time2). &seconds) && (($time1). µseconds == ($time2). µseconds))";
  21.     }';
  22.     eval 'sub Time_GE {
  23.         local($time1, $time2) = @_;
  24.         eval "((($time1). &seconds > ($time2). &seconds) || ((($time1). &seconds == ($time2). &seconds) && (($time1). µseconds >= ($time2). µseconds)))";
  25.     }';
  26.     eval 'sub Time_GT {
  27.         local($time1, $time2) = @_;
  28.         eval "((($time1). &seconds > ($time2). &seconds) || ((($time1). &seconds == ($time2). &seconds) && (($time1). µseconds > ($time2). µseconds)))";
  29.     }';
  30. }
  31. 1;
  32.